#!/usr/bin/perl -w
#
#
use lib qw(d:/www/MTT/lib);

use strict;
use Data::Dumper;

use MTT;

my $config = MTT->new()->config();

my $schema_class = $config->{'Model::DBIC'}->{schema_class};

eval "require $schema_class";
die "$@" if $@;

my $schema = $schema_class->connect( $config->{'Model::DBIC'}->{connect_info} );

$schema->resultset('User')->create({
		username => 'admin',
		password => 'mtt',
		email	 => 'asan999@gmail.com',
		fio	=> 'Асякин А.В.',
		user_roles => [ {role_id => 0} ] 
	});


